1 POKE53280,0:POKE53281,0:BS=55457:PRINT"[147] [209]  [209]  [159][209]  [156][209]  [209]  [209]  [158][209]  [129][209] [155] FARB-"
2 PRINT" 1  2  3  4  5  6  7  8  AUSWAHL":PRINT:BC=1185:S=0:A=0:FOR I=1TO4
3 PRINT"[213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201] [152][213][195][201][155]":PRINT"[194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194][194] [194]";
4 PRINT" [152][194][209][194][155]":PRINT"[202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203] [152][202][195][203][155]":NEXT
5 PRINT"[152][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201][213][195][201]":PRINT"[202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203][202][195][203]"
6 PRINT"[155] RICHTIGE FARBE  = [209]":PRINT"[155] RICHTIGE STELLE = [152][209]"
7 FORI=1TO4:N(I)=INT(RND(1)*8)+1:NEXT:IFN(1)=N(2)ORN(1)=N(3)ORN(1)=N(4)THEN7
8 IFN(2)=N(3)ORN(2)=N(4)ORN(3)=N(4)THEN7
9 Z=0:A=A+1:FOR X=1TO4:IFA>10THEN19
10 GET F$(X):IF F$(X)<CHR$(49)OR F$(X)>CHR$(56)THEN 10
11 POKEBC+Z,81:POKEBS+Z,VAL(F$(X)):Z=Z+120:NEXT:GOSUB12:BC=BC+3:BS=BS+3:GOTO9
12 P=0:FOR I=1 TO 4:IF N(I)=VAL(F$(I))THEN P=P+1:IF P=4THEN19
13 NEXT:Q=0:FOR I=1 TO 4
14 IF N(I)=VAL(F$(1))OR N(I)=VAL(F$(2))OR N(I)=VAL(F$(3))THENGOSUB18:GOTO16
15 IF N(I)=VAL(F$(4))THEN GOSUB 18
16 NEXT:Q=Q-P:POKE214,17:POKE211,S:SYS58640:PRINT""Q:POKE214,19:POKE211,S:SYS58640:PRINT"[152]"P
17 S=S+3:RETURN:REM*** MICHAEL GROCHOWSKI  1989 ***
18 Q=Q+1:RETURN
19 POKE55488,N(1):POKE55608,N(2):POKE55728,N(3):POKE55848,N(4)
20 PRINT"[158] NOCH EINMAL=SPACE ":POKE198,0:WAIT198,1:GETA$:IFA$=CHR$(32)THENRUN